0 CLR
100 REM COPYRIGHT 1992 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
110 GOTO240
120 PRINT"":S=7:IFP=2THENS=24
130 PRINTLEFT$("",Z+1)MID$(C$,Z+1,1)SPC(S);
140 O=USR(BG(Z,P)),4,0,0:PRINT" ";:O=USR(TV(Z,P)),10,2,2:PRINT
150 PRINT"";:S=9:IFP=2THENS=26
160 PRINTSPC(S)"[155]";:VX=TW(P):PU=USR(VX),13,2,3:PRINT
170 PRINTSPC(S)"[153]";:VX=CH(P):PU=USR(VX),13,2,3:PRINT
180 PRINTSPC(S)"[158]";:VX=FT(P):PU=USR(VX),13,2,3:PRINT"":RETURN
190 SV(Z)=INT(SV(Z)*100)/100:PRINT""LEFT$("",Z+1);
200 LL=INT(SV(Z)/3.4+SGN(SV(Z))):PRINTMID$(C$,Z+1,1)SK$(Z)"  ";LEFT$(B$,LL);
210 PRINTLEFT$("                        ",25-LL);:IFSV(Z)=0THENPRINT" ";
220 PU=USR(SV(Z)),6,2,1:PRINT
230 RETURN
240 GOSUB1860
250 GOSUB1620
260 JY=PEEK(J1)AND16:IFJY>0THENJY=PEEK(J2)AND16
270 J=1:GETA$:IF(A$>"")ORJY=0THEN360
280 IFCH(J)<0THENPN=2:GOTO520
290 J=J+1:IFJ<3THEN280
300 GOSUB1840:GOSUB840:GOSUB1100
310 IFYR<239THEN260
320 FORI=0TO10:SYS49504:FORY=0TO75:NEXT:PRINTSPC(136)"[150][212][193][216] [212][201][205][197]!"
330 FORY=0TO75:NEXT:NEXT
340 POKE53281,15:POKE53280,15:GOSUB1330:POKE53281,0:POKE53280,6:GOSUB1620
350 YR=0:GOTO260
360 IFA$<>"P"THEN390
370 POKE53281,11:POKE53280,11:POKE198,0:WAIT198,1:POKE198,0
380 POKE53280,6:POKE53281,0:GOTO260
390 IF(A$<>" "ANDA$<>CHR$(13))AND(JY>0)THEN260
400 SYS49504
410 PRINT""SPC(12)"[158][208]LAYER 1 OR 2":PRINTSPC(12)"[210][197][212][213][210][206][146] TO GAME"
420 POKE198,0:WAIT198,1:GETA$:POKE198,0
430 IFA$=CHR$(13)THENGOSUB1620:GOTO260
440 IFA$<"1"ORA$>"2"THEN420
450 J=VAL(A$)
460 SYS49504:PRINT"[158]"SPC(53)"1. [194]UY"
470 PRINTSPC(53)"2. [211]ELL"
480 PRINTSPC(53)"[210][197][212][213][210][206][146] TO MENU"
490 POKE198,0:WAIT198,1:GETA$:POKE198,0:PN=VAL(A$)
500 IFA$=CHR$(13)THEN400
510 IFA$<"1"ORA$>"2"THEN490
520 ON PN GOSUB540,680
530 GOTO360
540 SYS49504:PRINT""SPC(8)"[159] [194]UY [207]PTIONS- [158][208]LAYER"J
550 PRINT:FORI=0TO5:PRINTMID$(C$,I+1,1)I+1"[157]. "SK$(I)" ";
560 O=USR(BG(I,J)),5,0,0:PRINT" ";:O=USR(TV(I,J)),15,2,3:PRINT:NEXT
570 PRINT" [195]ASH ON [200]AND:   ";:O=USR(CH(J)),15,2,3:PRINT
580 PRINTHC$"";:FORI=0TO39:PRINTCHR$(20);:NEXT:PRINT" [194]UY WHICH STOCK (1-6)"
590 POKE198,0:WAIT198,1:GETA$:POKE198,0
600 IFA$=CHR$(13)THENRETURN
610 IFA$<"1"ORA$>"6"THEN590
620 SN=VAL(A$)-1:PRINTMID$(C$,SN+1,1)HC$"";
630 MX=INT(CH(J)/SV(SN))
640 FORI=0TO39:PRINTCHR$(20);:NEXT:PRINT" "SK$(SN)": [209]UANTITY (MAX"MX"[157])";
650 N$="":NQ=0:INPUTN$:NQ=VAL(N$):IF(NQ>MX)THEN640
660 CH(J)=CH(J)-NQ*SV(SN):BG(SN,J)=BG(SN,J)+NQ:TV(SN,J)=BG(SN,J)*SV(SN)
670 GOTO540
680 SYS49504:PRINT""SPC(8)"[156] [211]ELL [207]PTIONS- [158][208]LAYER"J
690 PRINT:FORI=0TO5:PRINTMID$(C$,I+1,1)I+1"[157]. "SK$(I)" ";
700 O=USR(BG(I,J)),5,0,0:PRINT" ";:O=USR(TV(I,J)),15,2,3:PRINT:NEXT
710 PRINT" [195]ASH ON [200]AND:   ";:O=USR(CH(J)),15,2,3:PRINT
720 PRINTHC$"";:FORI=0TO39:PRINTCHR$(20);:NEXT:PRINT" [211]ELL WHICH STOCK (1-6)"
730 POKE198,0:WAIT198,1:GETA$:POKE198,0
740 IFA$=CHR$(13)THENRETURN
750 IFA$<"1"ORA$>"6"THEN730
760 SN=VAL(A$)-1:PRINTMID$(C$,SN+1,1);:IFBG(SN,J)>0THEN800
770 PRINTHC$"";:FORI=0TO39:PRINTCHR$(20);:NEXT
780 PRINT" [217]OU DON'T OWN ANY "SK$(SN)"!"
790 FORI=0TO4000:NEXT:GOTO680
800 PRINTHC$"";:FORI=0TO39:PRINTCHR$(20);:NEXT:PRINT" "SK$(SN)": [209]UANTITY";
810 N$="":NQ=0:INPUTN$:NQ=VAL(N$):IFNQ>BG(SN,J)THEN800
820 CH(J)=CH(J)+NQ*SV(SN):BG(SN,J)=BG(SN,J)-NQ:TV(SN,J)=BG(SN,J)*SV(SN)
830 GOTO680
840 YR=YR+1:X=INT(RND(.)*6):Y=RND(X)*7+1:K=RND(Y)*2:IFK>1THENY=0-Y
850 PRINT""SPC(30)M$(INT(YR/20))
860 SV(X)=SV(X)+Y:IFSV(X)<0THENSV(X)=0:GOSUB1010:GOTO940
870 SV(X)=INT(SV(X)*100)/100:IFSV(X)>80THENSV(X)=80
880 K=RND(X)*10:IF(K>8)AND(SV(X)<10)THENSV(X)=SV(X)+K*2:GOSUB990
890 IFK<3ANDSV(X)>70THENSV(X)=SV(X)/5:GOSUB1000
900 FORP=1TO2:TV(X,P)=INT((BG(X,P)*SV(X))*100)/100:NEXT
910 FORP=1TO2:TW(P)=0:FORI=0TO5:TW(P)=TW(P)+TV(I,P):NEXT:FT(P)=TW(P)+CH(P)
920 Z=X:GOSUB120:NEXT:GOSUB190
930 IFSV(X)<70THEN980
940 FORP=1TO2:IFBG(X,P)>0THENDV=BG(X,P)*K:GOSUB1260:CH(P)=CH(P)+DV
950 IF(BG(X,P)>0)AND(SV(X)=80)THEN GOSUB1310:CH(P)=CH(P)+BG(X,P)*25
960 IFBG(X,P)>0THENPOKE198,0:WAIT198,1:POKE198,0:SYS49504
970 NEXT:IFBG(X,1)>0ORBG(X,2)>0THENGOSUB1620
980 RETURN
990 POKE53280,5:FORTT=0TO100:NEXT:POKE53280,6:RETURN
1000 POKE53281,1:FORTT=0TO100:NEXT:POKE53281,0:RETURN
1010 Z=X:FORP=1TO2:GOSUB120:NEXT:GOSUB190
1020 READA$:IFA$="END"THENRESTORE:GOTO1020
1030 SV(X)=30:BG(X,1)=0:BG(X,2)=0:TV(X,1)=0:TV(X,2)=0
1040 FORP=1TO2:FORI=0TO5:TW(P)=TW(P)+TV(I,P):NEXT:FT(P)=TW(P)+CH(P):NEXT
1050 SYS49504:PRINT"  "SK$(X)" [158]HAS GONE BROKE! [201]F YOU"
1060 SK$(X)=A$:PRINT"  OWNED ANY OF THIS STOCK, YOU WILL"
1070 PRINT"  NOTICE YOU NO LONGER HAVE ANY."
1080 PRINT""TAB(12)"[156][208][210][197][211][211][160][193][206][217] [203][197][217]"
1090 POKE198,0:WAIT198,1:POKE198,0:GOSUB1620
1100 A=0:FORP=1TO2:IF(FT(P)>GL)THENA=A+P
1110 IF(FT(P))<100THENA=A+P
1120 NEXT:IFA<1THENRETURN
1130 W=1:IFFT(2)>FT(1)THENW=2
1140 POKE53280,15:POKE53281,15
1150 PRINT"[147][144][198]INAL [211]TANDINGS:"
1160 PRINT"  [208]LAYER 1 [193]SSETS:   ";:PU=USR(FT(1)),15,2,3:PRINT
1170 PRINT"  [208]LAYER 2 [193]SSETS:   ";:PU=USR(FT(2)),15,2,3:PRINT
1180 PRINT"[208]LAYER";W;"HAS WON THE GAME!"
1190 IFFT(W)<1000000THEN1220
1200 PRINT"[217]OU ARE A MILLIONAIRE! [195]ONGRATULATIONS!"
1210 GOTO1250
1220 P=1:IFW=1THENP=2
1230 PRINT"[193]LTHOUGH YOU WON ONLY BECAUSE [208]LAYER";P
1240 PRINT"HAD LESS THAN $100.00 IN ASSETS."
1250 POKE198,0:WAIT198,1:POKE198,0:RUN
1260 SYS49504:PRINT" [208]LAYER"P
1270 PRINT" [155][217]OU OWN";BG(X,P)"PIECES OF "SK$(X)
1280 PRINT" [212]HEY ARE WORTH ";:TV(X,P)=BG(X,P)*SV(X):O=USR(TV(X,P)),10,2,3:PRINT
1290 PRINT" [217]OU RECIEVE    ";:O=USR(DV),10,2,3:PRINT
1300 PRINT" IN DIVIDENDS.":RETURN
1310 PRINT"[154] [198]OR YOUR LOYALTY, YOU RECIEVE A"
1320 PRINT" SPECIAL BONUS OF ";:BB=BG(X,P)*25:O=USR(BB),10,2,3:PRINT:RETURN
1330 FORP=1TO2:YP=FT(P)-OW(P):TX=YP/4:IFYP<0THENTX=0:LY(P)=LY(P)+1:WS=3-LY(P)
1340 PRINT"[147] [144][213]NCLE  [211]  [193]  [205] [146] [144]WANTS HIS SHARE!"
1350 PRINT" [208]LAYER";P
1360 PRINT"  [217]OUR CURRENT ASSETS:"TAB(24);:PU=USR(FT(P)),15,2,3:PRINT
1370 PRINT"  [217]OU STARTED WITH:"TAB(24);:PU=USR(OW(P)),15,2,3:PRINT
1380 IFYP<0THEN1440
1390 PRINT"  [217]OU HAVE EARNED:"TAB(24);:PU=USR(YP),15,2,3:PRINT
1400 PRINT"  [213]NCLE [211]AM'S 25% TAX:"TAB(24);:PU=USR(TX),15,2,3:PRINT
1410 PRINT" [212]HANK YOU, [208]LAYER";P"[157]."
1420 PRINT" [200]AVE A NICE DAY!"
1430 CH(P)=CH(P)-TX:LY(P)=0:FT(P)=TW(P)+CH(P):GOTO1530
1440 IFLY(P)=3THEN1550
1450 PRINT"[215][193][210][206][201][206][199]: [144][212]HROUGH COMPLETE INCOMPETENCE,"
1460 PRINT"YOU HAVE MANAGED TO COMPLETELY"
1470 PRINT"UNDERWHELM THE [206]EW [217]ORK [211]TOCK [197]XCHANGE,"
1480 PRINT"EMBARRASSING YOUR FRIENDS, NEIGHBORS,"
1490 PRINT"AND RELATIVES. [201]F THIS UNSEEMLY"
1500 PRINT"BEHAVIOR CONTINUES FOR"WS"MORE YEARS,"
1510 PRINT"YOUR SEAT ON THE STOCK EXCHANGE WILL"
1520 PRINT"GIVEN TO ONE WHO IS MORE WORTHY!"
1530 PRINT""SPC(12)"[144][208][210][197][211][211] [193][206][217] [203][197][217]":POKE198,0:WAIT198,1:POKE198,0
1540 OW(P)=FT(P):NEXT:RETURN
1550 PRINT"[144] [208]LAYER";P"[157], THE GAME IS OVER FOR YOU!"
1560 PRINT" [217]OU'VE LOST MONEY FOR THE PAST 3 YEARS"
1570 PRINT" AND YOU LOST YOUR SEAT ON THE"
1580 PRINT" STOCK EXCHANGE. [212]OO BAD!"
1590 FORT=0TO6000:NEXT
1600 POKE198,0:WAIT198,1:POKE198,0:RUN
1610 END
1620 PRINT"[147]          [155]  [211]TOCK [205]ARKET 64             "
1630 PRINT""TAB(13)"[195]URRENT [214]ALUE"
1640 PRINTTAB(7)"0 10 20 30 40 50 60 70 80"
1650 FORI=0TO5
1660 Z=I:GOSUB200
1670 NEXT
1680 PRINT""
1690 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][157][157][157][157][148][162]"
1700 PRINT"[155][211]TOCKS [155][208]LAYER 1 [193]SSETS  [155][208]LAYER 2 [193]SETS [157][157][157][157][148]S"
1710 PRINT"[162][162][162][162][162][162] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][157][157][157][157][148][162][146]"
1720 FORI=0TO5:Q$=MID$(C$,I+1,1):PRINTQ$;SK$(I)TAB(6)" [146]"Q$;
1730 PRINTSPC(16)" [146]"
1740 NEXT
1750 PRINT"[162][162][162][162][162][162] [146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] [146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][157][157][157][157][148][162]
1760 [153]"LIST(null)(null)(null)LEN(null)(null) LIST                 LIST               CMDCMDCMDCMDSAVE "
1770 [153]"PRINT  LENATN(null)LEFT$ PRINT                 PRINT               CMDCMDCMDCMDSAVE "
1780 [153]"SYS (null)(null)(null)ATN(null) SYS                 SYS               CMDCMDCMDCMDSAVE "
1790 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWCMDCMDCMDCMDSAVENEWWAIT"
1800 [129]P[178]1[164]2:[129]Z[178]0[164]5:[141]120:[130]:[130]
1810 [153]"";
1820 [153]"     LIST (null)RESS (null)(null)ATNLENVAL OR ASCRIGHT$(null)VAL FOR (null)ENU     CMDCMDCMDSAVE "
1830 [151]53265,27:[151]53296,0:[142]
1840 [142]
1850 [128]
1860 [134]I,J,P1,B,P,JY
1870 [134]A$,B$,C$
1880 [134]CH(2),OW(2),SK$(5),SV(5),BG(5,2),TV(5,2),TW(2),FT(2),LY(2),M$(11)
1890 [151]785,0:[151]786,192:[151]650,127
1900 YR[178]0:J1[178]56320:J2[178]J1[170]1
1910 B$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
1920 C$[178]"LISTSYSFOROPENCLRPRINT"
1930 CH(1)[178]10000:CH(2)[178]10000:OW(1)[178]CH(1):OW(2)[178]CH(2):GL[178]1000000
1940 HC$[178]""
1950 [151]53281,0:[151]53280,6:[153]"LOAD"
1960 [153][163]9)"PRINT                    WAITPOKENEW"
1970 [153][163]9)"PRINT  (null)TOCK (null)ARKET 64   POKE "
1980 [153][163]9)"PRINT                    POKE "
1990 [153][163]9)"POKELOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOKENEW"
2000 [153][163]9)"LIST (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKEWAITPOS"
2010 [153][163]9)"LIST (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE "
2020 [153][163]9)"LIST (null)(null)(null)(null)(null)(null)(null)OPENFNTHENLIST(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE "
2030 [153][163]9)"LIST (null)FORFNTHENLIST(null)(null)(null)(null)OPENFNTHENLIST(null)(null)(null)(null)(null)(null)(null)CONTFNTHENLIST(null)POKE "
2040 [153][163]9)"LIST (null)FORFNTHENLIST(null)SYSFNTHENLIST(null)OPENFNTHENLIST(null)(null)(null)(null)FNTHENLIST(null)CONTFNTHENLIST(null)POKE "
2050 [153][163]9)"LIST (null)FORFNTHENLIST(null)SYSFNTHENLIST(null)OPENFNTHENLIST(null)(null)(null)(null)FNTHENLIST(null)CONTFNTHENLIST(null)POKE "
2060 [153][163]9)"LIST (null)FORFNTHENLIST(null)SYSFNTHENLIST(null)OPENFNTHENLIST(null)CLRFNTHENLIST(null)FNTHENLIST(null)CONTFNTHENLIST(null)POKE "
2070 [153][163]9)"LIST (null)FORFNTHENLIST(null)SYSFNTHENLIST(null)OPENFNTHENLIST(null)CLRFNTHENLIST(null)FNTHENLIST(null)CONTFNTHENLIST(null)POKE "
2080 [153][163]9)"POKELOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOKENEW"
2090 [153][163]52)"LENOPYRIGHT 1992"
2100 [153][163]5)"PRINTLEN(null)(null)(null)(null)(null)VAL (null)UBLICATIONS RIGHT$NTL (null)(null)STR$"
2110 [140]
2120 [135]A$:[139]A$[179][177]"END"[167]2120
2130 [129]I[178]0[164]11:[135]M$(I):[130]
2140 [129]I[178]49152[164]49535:[135]J:[151]I,J:[130]
2150 [140]
2160 [129]I[178]0[164]5:[135]SK$(I):SV(I)[178]30:[130]
2170 [153]""[163]8)"SYS (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) (null)(null)ATN(null) "
2180 [161]A$:[139]A$[178]""[167]2180
2190 [142]
2200 [131]"(null)ILVER","LENARS  ","(null)IZZA ","(null)OAP  ","ASCURS  ","(null)TEEL ","(null)IL   "
2210 [131]"CHR$OLD  ","LENORN  ","(null)OCKS ","(null)RUCKS","LENOPPER","(null)HEEP ","LEFT$OTELS"
2220 [131]"(null)IRES ","PEEKUSES ","PEEKRASS ","(null)HIRTS","(null)HONES","PEEKOATS ","(null)APER "
2230 [131]"(null)RAINS","PEEKEADS ","LENOFFEE","MID$EWELS"
2240 [131]"END"
2250 [131]"MID$ANUARY  ","ASCEBRUARY ","(null)ARCH    ","ATNPRIL    ","(null)AY      "
2260 [131]"MID$UNE     ","MID$ULY     ","ATNUGUST   "
2270 [131]"(null)EPTEMBER","(null)CTOBER  ","(null)OVEMBER ","STR$ECEMBER "
2280 [131]169,0,160,79,153,176,193,136,16,250,32,221,189,133,251,132
2290 [131]252,160,0,177,251,153,192,193,240,3,200,208,246,160,0,152
2300 [131]72,32,241,183,104,168,138,153,176,193,200,192,3,208,240,173
2310 [131]178,193,240,17,41,1,240,3,32,176,192,173,178,193,41,2
2320 [131]240,3,32,16,193,234,234,234,234,234,32,208,192,169,192,160
2330 [131]193,133,251,132,252,173,192,193,201,32,208,2,230,251,160,0
2340 [131]177,251,240,10,200,201,64,208,247,162,23,76,55,164,204,176
2350 [131]193,240,45,144,27,162,42,160,0,177,251,240,33,138,145,251
2360 [131]200,208,246,172,176,193,169,0,153,192,193,24,144,18,234,234
2370 [131]169,32,32,210,255,200,204,176,193,208,245,234,234,174,230,251
2380 [131]160,0,177,251,240,6,32,210,255,200,208,246,96,0,0,0
2390 [131]173,192,193,201,32,240,16,160,31,136,185,192,193,200,153,192
2400 [131]193,136,208,245,160,1,174,160,0,169,36,153,192,193,96,0
2410 [131]160,0,185,192,193,240,9,201,46,240,5,200,192,64,208,242
2420 [131]173,177,193,208,4,153,192,193,96,169,46,153,192,193,200,24
2430 [131]152,105,192,168,24,132,251,169,193,133,252,160,0,177,251,208
2440 [131]4,169,48,145,251,200,204,177,193,208,242,169,0,145,251,96
2450 [131]160,0,185,192,193,240,2,201,46,240,3,200,208,244,192,5
2460 [131]144,18,24,152,233,2,141,179,193,192,8,144,7,24,152,233
2470 [131]5,141,180,193,162,0,189,179,193,240,24,24,105,192,133,251
2480 [131]169,193,133,252,160,31,136,177,251,200,145,251,136,208,247,169
2490 [131]44,145,251,232,224,2,208,222,96,187,187,187,187,187,187,187
2500 [131]169,32,160,0,153,184,5,153,184,6,200,208,247,160,47,153
2510 [131]184,7,136,16,250,162,11,160,0,24,32,240,255,96,187,187